home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / DDPLUS63.ZIP;1 / X00COMIO.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1994-07-04  |  1.5 KB  |  55 lines
  1.  
  2. { This might be an alternative to not initalizing if x00extok = true
  3.   Here the actual X00 extended functions are used in place of DDPlus
  4.   fossil initialization call.
  5.   This module is currently for reference only.  It isn't needed at present.
  6.   If problems develop when not initalizing the fossil replace comio with
  7.   these routines.
  8.   As BNU has not released their extended parameters it is better to use the
  9.   XFossil option in DDPlus without change.
  10.  
  11.   S.R.L.                                                             }
  12.  
  13. procedure AsyncSelectPort(n: byte);
  14. var
  15.  b: boolean;
  16. begin;
  17.  comport:=n;
  18.  case AsyncIoType of
  19.    Fossil: If x00extok then
  20.              begin
  21.                port_num:=n-1;
  22.                initok:=true;
  23.                async_reset_x00_ext;
  24.               end
  25.             else
  26.               begin
  27.                 async_deinit_fossil;
  28.                 port_num:=n-1;
  29.                 initok:=async_init_fossil;
  30.               end;
  31.   Internal: begin;
  32.              closeallcoms;
  33.              initok:=opencom(n,InternalInSize,InternalOutSize);
  34.             end;
  35.  end;
  36. end;
  37.  
  38. procedure AsyncCloseCom;
  39. begin;
  40.  case AsyncIoType of
  41.   fossil:  if x00extok then async_reset_x00_ext
  42.            else Async_deinit_fossil;
  43.   internal: closecom(cp);
  44.  end;
  45. end;
  46.  
  47. procedure AsyncSetBaud(n: longint);
  48. begin;
  49.  case asynciotype of
  50.   fossil:   If X00extok then async_set_x00_ext(n) else
  51.               async_set_baud(n);
  52.   internal: comparams(comport,n,8,'N',1);
  53.  end;
  54. end;
  55.